0 POKE774,248:POKE775,252:POKE808,234:GOSUB650
1 POKE53280,0:POKE53281,0:PRINTCHR$(147)
2 JOY=56320:A=2:J$="NEUTRAL":VL$="00":B$="OFF"
5 PRINT" JOYSTICK TESTER BY MICHAEL SMITH @1989 [146]"
12 PRINT"     [209]     ":PRINT
13 PRINT" [209]       [209]  ":PRINT:PRINT
15 PRINT"[209]    [209]    [209]  ":PRINT
16 PRINT"           "
17 PRINT" [209]       [209]  ":PRINT
18 PRINT"     [209]     "
20 PRINT"JOYSTICK PORT     :";A"[146]"
21 PRINT"JOYSTICK DIRECTION:";J$"[146]"
22 PRINT"VALUE:";VL$"[146]"
23 PRINT"JOYSTICK BUTTON   :";B$;"[146]"
24 PRINT"H - HELP[146]"
25 PRINT"      PRESS SPACE TO CHANGE PORT      [146]"
50 FORK=0TO10
51 GOSUB100
55 GETA$:IFA$=""THEN56
56 IFA$=" "THENGOTO150
57 IFA$="H"THEN550:END
67 IFJV=0THEN98
68 IFJV=1THENJ$="UP         ":VL$="01":GOTO507
69 IFJV=2THENJ$="DOWN       ":VL$="02":GOTO506
70 IFJV=4THENJ$="LEFT       ":VL$="04":GOTO505
71 IFJV=5THENJ$="UP/LEFT    ":VL$="05":GOTO504
72 IFJV=6THENJ$="DOWN/LEFT  ":VL$="06":GOTO503
73 IFJV=8THENJ$="RIGHT      ":VL$="08":GOTO502
74 IFJV=9THENJ$="UP/RIGHT   ":VL$="09":GOTO501
95 IFJV=10THENJ$="DOWN/RIGHT ":VL$="10":GOTO500
98 IFFR=16THENB$="OFF":J$="NEUTRAL    ":VL$="00":GOTO510
99 B$="ON ":GOTO23
100 JV=PEEK(JOY)
110 FR=JVAND16
120 JV=15-(JVAND15)
130 RETURN
140 END
150 IFA=2THENJOY=56321:A=1:GOTO12
155 IFA=1THENJOY=56320:A=2:GOTO12
160 END
500 PRINT"[153] [209][150]       [209]  ":GOTO12
501 PRINT" [209][150]       [209]  ":GOTO12
502 PRINT"[209]    [209][150]    [209]  ":GOTO12
503 PRINT"[150] [209]       [209]  ":GOTO12
504 PRINT"[150] [209]       [209]  ":GOTO12
505 PRINT"[150][209]    [209]    [209]  ":GOTO12
506 PRINT"[150]     [209]     ":GOTO12
507 PRINT"[150]     [209]     ":GOTO12
510 PRINT"[209]   [150] [209]    [209]  ":GOTO12
520 END
550 REM *** INSTRUCTIONS ***
551 PRINT"[147]"
555 PRINTCHR$(147)
556 PRINT" JOYSTICK TESTER BY MICHAEL SMITH @1989 [146]"
560 PRINT"INSTRUCTIONS:"
561 PRINT:PRINT"JOYSTICK TESTER ALLOWS YOU TO TEST YOUR"
562 PRINT"JOYSTICK(S) TO SEE IF THEY FUNCTION"
563 PRINT"CORRECTLY."
565 PRINT"JOYSTICK PORT [146] - THE PORT THE PROGRAM"
566 PRINT"IS TESTING THE JOYSTICK"
567 PRINT"JOY. DIRECTION[146] - THE DIRECTION YOU ARE"
568 PRINT"PUSHING THE JOYSTICK"
569 PRINT"VALUE         [146] - THE COMPUTERS VALUE"
570 PRINT"OF THE DIRECTION"
575 PRINT"JOY. BUTTON   [146] - SHOWS IF THE FIRE"
576 PRINT"BUTTON HAS BEEN PRESSED"
577 PRINT"RED LIGHTS    [146] - SHOWS THE CURRENT"
578 PRINT"DIRECTION OF THE STICK"
580 PRINT"         PRESS SPACE TO EXIT          [146]"
600 GETA$:IFA$<>" "THEN600
601 PRINTCHR$(147):GOTO5:END
650 REM **** TITLE ****
651 POKE53272,28
655 PRINTCHR$(147):POKE53280,0:POKE53281,0
660 PRINT"<  JOYSTICK  TESTER  <"
665 PRINT"WRITTEN BY MICHAEL SMITH"
670 PRINT"PRESS ANY KEY TO START"
680 GETA$:IFA$=""THEN680
690 RETURN
700 END